home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / shazam11.zip / ABOUT.SRC < prev    next >
Text File  |  1991-11-04  |  821b  |  39 lines
  1. FUNCTION MakeDialog : PDialog;
  2. var
  3.   Dlg : PDialog;
  4.   R : TRect;
  5.   Control, Labl, Histry : PView;
  6. Begin
  7. R.Assign(20,4,57,17);
  8. New(Dlg, Init(R, 'About'));
  9.  
  10. R.Assign(10,2,26,3);
  11. Control := New(PStaticText, Init(R, 'A Sample Program'));
  12. Dlg^.Insert(Control);
  13.  
  14. R.Assign(13,4,24,5);
  15. Control := New(PStaticText, Init(R, 'Version 1.0'));
  16. Dlg^.Insert(Control);
  17.  
  18. R.Assign(8,6,29,7);
  19. Control := New(PStaticText, Init(R, '(C) Copyright 19xx by'));
  20. Dlg^.Insert(Control);
  21.  
  22. R.Assign(8,8,29,9);
  23. Control := New(PStaticText, Init(R, 'Anybody, Incorporated'));
  24. Dlg^.Insert(Control);
  25.  
  26. R.Assign(14,10,24,12);
  27. Control := New(PButton, Init(R, ' O~K~ ', cmOK, bfNormal));
  28. Control^.HelpCtx := hcabout;
  29. Dlg^.Insert(Control);
  30.  
  31. Dlg^.SelectNext(False);
  32. MakeDialog := Dlg;
  33. end;
  34.  
  35. var
  36.   DataRec : record
  37.     end;
  38.  
  39.